home *** CD-ROM | disk | FTP | other *** search
/ USGS: National Coal Resou…s & Great Plains Regions / USGS National Coal Resource Assessment 1999 - Northern Rocky Mountains & Great Plains Regions - Disc 2.iso / PROGRAM / EXT32 / vpfview.avx < prev   
Encoding:
Text File  |  1998-07-18  |  3.7 KB  |  73 lines
  1. /3.0
  2. (Extension.1
  3.     Name:    "VPF Viewer"
  4.     Dependencies:    "$AVBIN/vpfview.dll\n"
  5.     Roots:         7
  6.     Version:    30
  7.     About:    "Extends ArcView to support viewing, querying, and analyzing Vector Product Format (VPF) databases (v3.1)"
  8.     CanUnloadScript:    2
  9.     UnloadScript:    3
  10.     InstallScript:    4
  11.     UninstallScript:    5
  12.     DependentScript:    6
  13.     ExtVersion:    3100
  14. )
  15.  
  16. (Script.2
  17.     Name:    "VpfView.CanUnload"
  18.     SourceCode:    "av.PurgeObjects\ncanUnload = System.CanUnloadLibrary(SELF.GetDependencies.Get(0))\nreturn canUnload\n"
  19. )
  20.  
  21. (Script.3
  22.     Name:    "VpfView.Unload"
  23.     SourceCode:    "av.PurgeObjects\n"
  24. )
  25.  
  26. (Script.4
  27.     Name:    "VpfView.Install"
  28.     SourceCode:    "\n\n"
  29. )
  30.  
  31. (Script.5
  32.     Name:    "VpfView.Uninstall"
  33.     SourceCode:    "\n\n"
  34. )
  35.  
  36. (Script.6
  37.     Name:    "VpfView.IsDependent"
  38.     SourceCode:    "av.PurgeObjects\ncanUnload = System.CanUnloadLibrary(SELF.GetDependencies.Get(0))\nisDependent = canUnload.Not\nreturn isDependent\n"
  39. )
  40.  
  41. (Script.7
  42.     Name:    "Project.AddTable"
  43.     SourceCode:    "patterns = {\"*.dbf\", \"arcdr9\", \"*.txt\", \"*\", \n 
  44.                            \"cat\", \"cnd\", \"dht\", \"dqt\", \"ebr\", \"edg\", \"end\", \"fac\", \n 
  45.                            \"fca\", \"fcs\", \"grt\", \"lat\", \"lht\", \"rng\", \"txt\", \n 
  46.                            \"char.vdt\", \"int.vdt\", \"*.aft\", \"*.ajt\", \"*.doc\", \"*.fit\", \"*.lft\",\n
  47.                            \"*.ljt\", \"*.pft\", \"*.pjt\", \"*.tft\", \"*.tjt\", \"*.rat\",\n 
  48.                            \"cat.\", \"cnd.\", \"dht.\", \"dqt.\", \"ebr.\", \"edg.\", \"end.\", \"fac.\", \n
  49.                            \"fca.\", \"fcs.\", \"grt.\", \"lat.\", \"lht.\", \"rng.\", \"txt.\"}\n
  50.                          labels =   {\"dBASE (*.dbf)\", \"INFO\",   \"Delimited Text (*.txt)\", \"AllFiles (*)\",\n 
  51.                            \"VPF (cat)\", \"VPF (cnd)\", \"VPF (dht)\", \"VPF (dqt)\", \"VPF (ebr)\", \"VPF (edg)\", \"VPF (end)\", \"VPF (fac)\", \n
  52.                            \"VPF (fca)\", \"VPF (fcs)\", \"VPF (grt)\", \"VPF (lat)\", \"VPF (lht)\", \"VPF (rng)\", \"VPF (txt)\", \n
  53.                            \"VPF (char.vdt)\", \"VPF (int.vdt)\", \"VPF (*.aft)\", \"VPF (*.ajt)\", \"VPF (*.doc)\", \"VPF (*.fit)\", \"VPF (*.lft)\", \n
  54.                            \"VPF (*.ljt)\", \"VPF (*.pft)\", \"VPF (*.pjt)\", \"VPF (*.tft)\", \"VPF (*.tjt)\", \"VPF (*.rat)\",\n
  55.                            \"VPF (cat.)\", \"VPF (cnd.)\", \"VPF (dht.)\", \"VPF (dqt.)\", \"VPF (ebr.)\", \"VPF (edg.)\", \"VPF (end.)\", \"VPF (fac.)\", \n
  56.                            \"VPF (fca.)\", \"VPF (fcs.)\", \"VPF (grt.)\", \"VPF (lat.)\", \"VPF (lht.)\", \"VPF (rng.)\", \"VPF (txt.)\"}\n
  57.                          files = FileDialog.ReturnFiles(patterns, labels, \"Add Table\", 0)\n
  58.                                  for each f in files\n  
  59.                                      v = VTab.Make(f, FALSE, FALSE)\n
  60.                                      if (v.HasError) then\n
  61.                                         if (v.HasLockError) then\n
  62.                                            MsgBox.Error(\"Unable to acquire Read Lock for file \" + f.GetBaseName, \"\")\n
  63.                                         else\n      
  64.                                            MsgBox.Error(\"The file '\" + f.GetBaseName + \"' is not valid.\", \"\")\n
  65.                                         end\n  
  66.                                      else\n
  67.                                         gui = av.GetProject.GetSelectedGUI\n    
  68.                                      if (gui.GetType <> \"Table\") then\n      GUIName = \"Table\"\n    else\n      GUIName = gui.GetName\n    end     \n    
  69.                                      t = Table.MakeWithGUI(v, GUIName)\n    t.SetName( v.GetName)\n    t.GetWin.Open\n  end\nend "
  70. )
  71. )
  72. )
  73.